﻿Public Class F01_M_anverso_



    Private Sub btnReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReverso.Click
        Me.Close()
        F01_M_reverso_.Show()
    End Sub

    Private Sub btnguardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguardar.Click
        If (Len(txtnumform.Text) = 0) Then
            MsgBox("EL Número de formulario es un campo obligatorio", MsgBoxStyle.Exclamation)
            txtnumform.Focus()
            Exit Sub
        End If
        Dim oF01MNegocios As New Negocios.NF01_MA
        Dim oF01M As New Entidades.EF01Vehiculo
        oF01M.numformu = UCase(txtnumform.Text)
        oF01M.dominioo = UCase(txtdominio.Text)
        oF01M.porcentajetitt = UCase(txtporcentajetit.Text)
        oF01M.apenomdenn = UCase(txtapenomden.Text)
        oF01M.callee = UCase(txtcalle.Text)
        oF01M.numeroo = UCase(txtnumero.Text)
        oF01M.pisoo = UCase(txtpiso.Text)
        oF01M.dptoo = UCase(txtdto.Text)
        oF01M.codpostall = UCase(txtcodpostal.Text)
        oF01M.loccapp = UCase(txtloccap.Text)
        oF01M.partdptoo = UCase(txtpartdpto.Text)
        oF01M.provinciaa = UCase(txtprovincia.Text)
        oF01M.argnndnii = UCase(txtargendni.Text)
        oF01M.argnnlee = UCase(txtargenle.Text)
        oF01M.argnlcc = UCase(txtargenlc.Text)
        oF01M.extrdnii = UCase(txtextrdni.Text)
        oF01M.extrcii = UCase(txtextrci.Text)
        oF01M.extrpasaportee = UCase(txtpasaporte.Text)
        oF01M.nudocc = UCase(txtnumdoc.Text)
        oF01M.autoridadd = UCase(txtautoridad.Text)
        oF01M.fechanacdiaa = UCase(txtfechanacdia.Text)
        oF01M.fechanacmess = UCase(txtfechanacmes.Text)
        oF01M.fechanacañoo = UCase(txtfechanacaño.Text)
        oF01M.solteroo = UCase(txtsoltero.Text)
        oF01M.casadoo = UCase(txtcasado.Text)
        oF01M.viudoo = UCase(txtviudo.Text)
        oF01M.divorciadoo = UCase(txtdivorciado.Text)
        oF01M.numnupciaa = UCase(txtnumnupcia.Text)
        oF01M.apenomconyy = UCase(txtapenomcony.Text)
        oF01M.personeriaa = UCase(txtpersoneria.Text)
        oF01M.numincc = UCase(txtnuminsc.Text)
        oF01M.fechainscdiaa = UCase(txtfechainscdia.Text)
        oF01M.fechainscmess = UCase(txtfechainscmes.Text)
        oF01M.fechainscañoo = UCase(txtfechainscaño.Text)
        oF01M.porcentajecondd = UCase(txtporcentajecond.Text)
        oF01M.apenomdencc = UCase(txtapenomden_c.Text)
        oF01M.callecc = UCase(txtcalle_c.Text)
        oF01M.numerocc = UCase(txtnumero_c.Text)
        oF01M.pisocc = UCase(txtpiso_c.Text)
        oF01M.dptocc = UCase(txtdpto_c.Text)
        oF01M.codpostalcc = UCase(txtcodpostal_c.Text)
        oF01M.loccapcc = UCase(txtloccap_c.Text)
        oF01M.partdptocc = UCase(txtpartdpto_c.Text)
        oF01M.provinciacc = UCase(txtprovincia_c.Text)
        oF01M.argnndnicc = UCase(txtargendni_c.Text)
        oF01M.argnnlecc = UCase(txtargenle_c.Text)
        oF01M.argnnlccc = UCase(txtargenlc_c.Text)
        oF01M.extrdnicc = UCase(txtextrdni_c.Text)
        oF01M.extrcicc = UCase(txtextrci_c.Text)
        oF01M.extrpasaportecc = UCase(txtpasaporte_c.Text)
        oF01M.numdoccc = UCase(txtnumdoc_c.Text)
        oF01M.autoridadcc = UCase(txtautoridad_c.Text)
        oF01M.fechanacdiacc = UCase(txtfechanacdia_c.Text)
        oF01M.fechanacmescc = UCase(txtfechanacmes_c.Text)
        oF01M.fechanacañocc = UCase(txtfechanacaño_c.Text)
        oF01M.solterocc = UCase(txtsoltero_c.Text)
        oF01M.casadocc = UCase(txtcasado_c.Text)
        oF01M.viudocc = UCase(txtviudo_c.Text)
        oF01M.divorciadocc = UCase(txtdivorciado_c.Text)
        oF01M.numnupciacc = UCase(txtnumnupcia_c.Text)
        oF01M.apenomconycc = UCase(txtapenomcony_c.Text)
        oF01M.personeriacc = UCase(txtpersoneria_c.Text)
        oF01M.numinsccc = UCase(txtnuminsc_c.Text)
        oF01M.fechainscdiacc = UCase(txtfechainscdia_c.Text)
        oF01M.fechainscmescc = UCase(txtfechainscmes_c.Text)
        oF01M.fechainscañocc = UCase(txtfechainscaño_c.Text)
        oF01M.optasii = UCase(txtoptasi.Text)
        oF01M.optanoo = UCase(txtoptano.Text)
        oF01M.numfabb = UCase(txtnumfab.Text)
        oF01M.marcaa = UCase(txtmarca.Text)
        oF01M.tipoo = UCase(txttipo.Text)
        oF01M.modeloo = UCase(txtmodelo.Text)
        oF01M.marcamotorr = UCase(txtmarcamotor.Text)
        oF01M.nummotorr = UCase(txtnummotor.Text)
        oF01M.marcachasiss = UCase(txtmarcachasis.Text)
        oF01M.carrocnumm = UCase(txtnumcarroc.Text)
        oF01M.usoo = UCase(txtuso.Text)
        oF01M.valoradqq = UCase(txtvaloradq.Text)
        oF01M.diaadqq = UCase(txtdiaadq.Text)
        oF01M.mesadqq = UCase(txtmesadq.Text)
        oF01M.añoadqq = UCase(txtañoadq.Text)
        oF01M.elementoo = UCase(txtelemento.Text)


        Try
            If oF01MNegocios.guardarF01MA(oF01M) Then
                MsgBox("La edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnNuevo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNuevo.Click
        txtnumform.Text = ""
        txtnumform.Focus()
        txtdominio.Text = ""
        txtporcentajetit.Text = ""
        txtapenomden.Text = ""
        txtcalle.Text = ""
        txtnumero.Text = ""
        txtpiso.Text = ""
        txtdto.Text = ""
        txtcodpostal.Text = ""
        txtloccap.Text = ""
        txtpartdpto.Text = ""
        txtprovincia.Text = ""
        txtargendni.Text = ""
        txtargenle.Text = ""
        txtargenlc.Text = ""
        txtextrdni.Text = ""
        txtextrci.Text = ""
        txtpasaporte.Text = ""
        txtnumdoc.Text = ""
        txtautoridad.Text = ""
        txtfechanacdia.Text = ""
        txtfechanacmes.Text = ""
        txtfechanacaño.Text = ""
        txtsoltero.Text = ""
        txtcasado.Text = ""
        txtviudo.Text = ""
        txtdivorciado.Text = ""
        txtnumnupcia.Text = ""
        txtapenomcony.Text = ""
        txtpersoneria.Text = ""
        txtnuminsc.Text = ""
        txtfechainscdia.Text = ""
        txtfechainscmes.Text = ""
        txtfechainscaño.Text = ""
        txtporcentajecond.Text = ""
        txtapenomden_c.Text = ""
        txtcalle_c.Text = ""
        txtnumero_c.Text = ""
        txtpiso_c.Text = ""
        txtdpto_c.Text = ""
        txtcodpostal_c.Text = ""
        txtloccap_c.Text = ""
        txtpartdpto_c.Text = ""
        txtprovincia_c.Text = ""
        txtargendni_c.Text = ""
        txtargenle_c.Text = ""
        txtargenlc_c.Text = ""
        txtextrdni_c.Text = ""
        txtextrci_c.Text = ""
        txtpasaporte_c.Text = ""
        txtnumdoc_c.Text = ""
        txtautoridad_c.Text = ""
        txtfechanacdia_c.Text = ""
        txtfechanacmes_c.Text = ""
        txtfechanacaño_c.Text = ""
        txtsoltero_c.Text = ""
        txtcasado_c.Text = ""
        txtviudo_c.Text = ""
        txtdivorciado_c.Text = ""
        txtnumnupcia_c.Text = ""
        txtapenomcony_c.Text = ""
        txtpersoneria_c.Text = ""
        txtnuminsc_c.Text = ""
        txtfechainscdia_c.Text = ""
        txtfechainscmes_c.Text = ""
        txtfechainscaño_c.Text = ""
        txtoptasi.Text = ""
        txtoptano.Text = ""
        txtnumfab.Text = ""
        txtmarca.Text = ""
        txttipo.Text = ""
        txtmodelo.Text = ""
        txtmarcamotor.Text = ""
        txtnummotor.Text = ""
        txtmarcachasis.Text = ""
        txtnumcarroc.Text = ""
        txtuso.Text = ""
        txtvaloradq.Text = ""
        txtdiaadq.Text = ""
        txtmesadq.Text = ""
        txtañoadq.Text = ""
        txtelemento.Text = ""
    End Sub

    Private Sub btnEditarAnverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarAnverso.Click
        Dim oF01MNegocios As New Negocios.NF01_MA
        Dim oF01M As New Entidades.EF01Vehiculo
        oF01M.numformu = UCase(txtnumform.Text)
        oF01M.dominioo = UCase(txtdominio.Text)
        oF01M.porcentajetitt = UCase(txtporcentajetit.Text)
        oF01M.apenomdenn = UCase(txtapenomden.Text)
        oF01M.callee = UCase(txtcalle.Text)
        oF01M.numeroo = UCase(txtnumero.Text)
        oF01M.pisoo = UCase(txtpiso.Text)
        oF01M.dptoo = UCase(txtdto.Text)
        oF01M.codpostall = UCase(txtcodpostal.Text)
        oF01M.loccapp = UCase(txtloccap.Text)
        oF01M.partdptoo = UCase(txtpartdpto.Text)
        oF01M.provinciaa = UCase(txtprovincia.Text)
        oF01M.argnndnii = UCase(txtargendni.Text)
        oF01M.argnnlee = UCase(txtargenle.Text)
        oF01M.argnlcc = UCase(txtargenlc.Text)
        oF01M.extrdnii = UCase(txtextrdni.Text)
        oF01M.extrcii = UCase(txtextrci.Text)
        oF01M.extrpasaportee = UCase(txtpasaporte.Text)
        oF01M.nudocc = UCase(txtnumdoc.Text)
        oF01M.autoridadd = UCase(txtautoridad.Text)
        oF01M.fechanacdiaa = UCase(txtfechanacdia.Text)
        oF01M.fechanacmess = UCase(txtfechanacmes.Text)
        oF01M.fechanacañoo = UCase(txtfechanacaño.Text)
        oF01M.solteroo = UCase(txtsoltero.Text)
        oF01M.casadoo = UCase(txtcasado.Text)
        oF01M.viudoo = UCase(txtviudo.Text)
        oF01M.divorciadoo = UCase(txtdivorciado.Text)
        oF01M.numnupciaa = UCase(txtnumnupcia.Text)
        oF01M.apenomconyy = UCase(txtapenomcony.Text)
        oF01M.personeriaa = UCase(txtpersoneria.Text)
        oF01M.numincc = UCase(txtnuminsc.Text)
        oF01M.fechainscdiaa = UCase(txtfechainscdia.Text)
        oF01M.fechainscmess = UCase(txtfechainscmes.Text)
        oF01M.fechainscañoo = UCase(txtfechainscaño.Text)
        oF01M.porcentajecondd = UCase(txtporcentajecond.Text)
        oF01M.apenomdencc = UCase(txtapenomden_c.Text)
        oF01M.callecc = UCase(txtcalle_c.Text)
        oF01M.numerocc = UCase(txtnumero_c.Text)
        oF01M.pisocc = UCase(txtpiso_c.Text)
        oF01M.dptocc = UCase(txtdpto_c.Text)
        oF01M.codpostalcc = UCase(txtcodpostal_c.Text)
        oF01M.loccapcc = UCase(txtloccap_c.Text)
        oF01M.partdptocc = UCase(txtpartdpto_c.Text)
        oF01M.provinciacc = UCase(txtprovincia_c.Text)
        oF01M.argnndnicc = UCase(txtargendni_c.Text)
        oF01M.argnnlecc = UCase(txtargenle_c.Text)
        oF01M.argnnlccc = UCase(txtargenlc_c.Text)
        oF01M.extrdnicc = UCase(txtextrdni_c.Text)
        oF01M.extrcicc = UCase(txtextrci_c.Text)
        oF01M.extrpasaportecc = UCase(txtpasaporte_c.Text)
        oF01M.numdoccc = UCase(txtnumdoc_c.Text)
        oF01M.autoridadcc = UCase(txtautoridad_c.Text)
        oF01M.fechanacdiacc = UCase(txtfechanacdia_c.Text)
        oF01M.fechanacmescc = UCase(txtfechanacmes_c.Text)
        oF01M.fechanacañocc = UCase(txtfechanacaño_c.Text)
        oF01M.solterocc = UCase(txtsoltero_c.Text)
        oF01M.casadocc = UCase(txtcasado_c.Text)
        oF01M.viudocc = UCase(txtviudo_c.Text)
        oF01M.divorciadocc = UCase(txtdivorciado_c.Text)
        oF01M.numnupciacc = UCase(txtnumnupcia_c.Text)
        oF01M.apenomconycc = UCase(txtapenomcony_c.Text)
        oF01M.personeriacc = UCase(txtpersoneria_c.Text)
        oF01M.numinsccc = UCase(txtnuminsc_c.Text)
        oF01M.fechainscdiacc = UCase(txtfechainscdia_c.Text)
        oF01M.fechainscmescc = UCase(txtfechainscmes_c.Text)
        oF01M.fechainscañocc = UCase(txtfechainscaño_c.Text)
        oF01M.optasii = UCase(txtoptasi.Text)
        oF01M.optanoo = UCase(txtoptano.Text)
        oF01M.numfabb = UCase(txtnumfab.Text)
        oF01M.marcaa = UCase(txtmarca.Text)
        oF01M.tipoo = UCase(txttipo.Text)
        oF01M.modeloo = UCase(txtmodelo.Text)
        oF01M.marcamotorr = UCase(txtmarcamotor.Text)
        oF01M.nummotorr = UCase(txtnummotor.Text)
        oF01M.marcachasiss = UCase(txtmarcachasis.Text)
        oF01M.carrocnumm = UCase(txtnumcarroc.Text)
        oF01M.usoo = UCase(txtuso.Text)
        oF01M.valoradqq = UCase(txtvaloradq.Text)
        oF01M.diaadqq = UCase(txtdiaadq.Text)
        oF01M.mesadqq = UCase(txtmesadq.Text)
        oF01M.añoadqq = UCase(txtañoadq.Text)
        oF01M.elementoo = UCase(txtelemento.Text)

        Try
            If oF01MNegocios.editarF01MA(oF01M) Then
                MsgBox("La edición ha sido exitosa", MsgBoxStyle.MsgBoxSetForeground, "Información")
            End If
        Catch ex As Exception
            MsgBox("Edición fallida. " + ex.Message, MsgBoxStyle.MsgBoxSetForeground, "Información")
        End Try
    End Sub

    Private Sub btnEditarReverso_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEditarReverso.Click
        F01_M_reverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnsalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsalir.Click
        Me.Close()
    End Sub

    Private Sub btnF01V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01V.Click
        F01_V_anverso_.Show()
        Me.Close()
    End Sub


    Private Sub btnF01I_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF01I.Click
        F01_VImp_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02V.Click
        F02_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF02M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF02M.Click
        F02_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF04V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF04V.Click
        F04_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
        F04_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08V.Click
        F08_V_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF08M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF08M.Click
        F08_M_anverso_.Show()
        Me.Close()
    End Sub

    Private Sub btnF11V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11V.Click
        F11_V_anverso_.Show()
        Me.Close 
    End Sub

    Private Sub btnF11M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF11M.Click
        F11_M_anverso_.Show()
        Me.Close()

    End Sub

    Private Sub btnF12V_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12V.Click
        F12_V.Show()
        Me.Close()
    End Sub

    Private Sub btnF12M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF12M.Click
        F12_M.Show()
        Me.Close()
    End Sub

    Private Sub btnF99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF99.Click
        F99.Show()
        Me.Close()
    End Sub

    Private Sub btnF59M_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnF59M.Click
        F59_M.Show()
        Me.Close()
    End Sub

    Private Sub btnFR00_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFR00.Click
        F_R00.Show()
        Me.Close()
    End Sub

    
   
    
End Class
